home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 1 #1 / Commodore_Disk_User_Vol.1_1_1987_-.d64 / txt enhancer.sub (.txt) < prev   
Encoding:
Commodore BASIC  |  1987-01-01  |  1.6 KB  |  69 lines
  1. 50000 ifp$=""thenp$="wn1d1n"
  2. 50005 c$=left$(p$,1):f$=mid$(p$,2,1)
  3. 50010 l=val(mid$(p$,3,1))
  4. 50020 ifl=1thenbat=val(mid$(p$,5,1)):lf$=mid$(p$,4,1)
  5. 50030 ifl=0thenbat=val(mid$(p$,5,1)):lf$=mid$(p$,4,1)
  6. 50040 ifbat=1andl=1thencu=val(mid$(p$,6,1))
  7. 50050 ifbat=1andl=0thencu=val(mid$(p$,6,1))
  8. 50070 ifcu=1andl=0thenct$=mid$(p$,7,1)
  9. 50080 ifcu=1andl=1thenct$=mid$(p$,7,1)
  10. 50085 ifct$=""thenct$=" [146]"
  11. 50086 f1$=f$
  12. 50090 ifc$="w"andf$="u"thenco$="[151][152][155]"
  13. 50100 ifc$="w"andf$="d"thenco$="[155][152][151]"
  14. 50105 ifc$="w"andlf$<>"n"theng$="[155][152][151]"
  15. 50110 ifc$="b"andf$="u"thenco$="[154][159]"
  16. 50120 ifc$="b"andf$="d"thenco$="[159][154]"
  17. 50125 ifc$="b"andlf$<>"n"theng$="[159][154]"
  18. 50130 ifc$="g"andf$="u"thenco$="[153]"
  19. 50140 ifc$="g"andf$="d"thenco$="[153]"
  20. 50145 ifc$="g"andlf$<>"n"theng$="[153]"
  21. 50150 ifc$="r"andf$="u"thenco$="[150]"
  22. 50160 ifc$="r"andf$="d"thenco$="[150]"
  23. 50165 ifc$="r"andlf$<>"n"theng$="[150]"
  24. 50170 ifc$="y"andf$="u"thenco$="[129][158]"
  25. 50180 ifc$="y"andf$="d"thenco$="[158][129]"
  26. 50182 f$=f1$
  27. 50185 ifc$="y"andlf$<>"n"theng$="[158][129]"
  28. 50190 k$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  29. 50200 y$=""
  30. 50210 li$=left$(k$,len(a$))
  31. 50212 v$=left$(y$,y)
  32. 50215 ifbat=1then50240
  33. 50220 iff$="n"thengosub50400:gosub50450
  34. 50230 iff$<>"n"thengosub50500
  35. 50240 ifcu=0andbat=1thengosub50600
  36. 50250 ifcu=1andbat=1thengosub50700
  37. 50260 ifl=0thenreturn
  38. 50270 iflf$="u"thengosub51000
  39. 50275 iflf$="d"thengosub50800
  40. 50280 iflf$="n"thengosub50400:gosub50900
  41. 50395 return
  42. 50400 ifc$="w"thenco$="[151]"
  43. 50410 ifc$="b"thenco$=""
  44. 50420 ifc$="g"thenco$=""
  45. 50430 ifc$="r"thenco$=""
  46. 50440 ifc$="y"thenco$=""
  47. 50445 return
  48. 50450 print"";tab(x);v$;co$;a$:return
  49. 50500 fork=1to4:print"";tab(x);v$;mid$(co$,k,1);a$
  50. 50510 fort=1tod:nextt
  51. 50520 nextk:return
  52. 50600 print"";tab(x);v$;:gosub50400:printco$;
  53. 50605 fork=1tolen(a$)
  54. 50610 printmid$(a$,k,1);:fort=1tobd:nextt:ifs=1thengosub51100
  55. 50620 nextk:return
  56. 50700 print"";tab(x);v$;:gosub50400:printco$;
  57. 50705 fork=1tolen(a$)
  58. 50710 printmid$(a$,k,1);ct$;"[157]";:fort=1tobd:nextt
  59. 50720 ifs=1thengosub51100
  60. 50730 nextk:print" ":return
  61. 50800 fork=1to4:print"";tab(x);v$;"";mid$(g$,k,1);li$
  62. 50810 fort=1tod:nextt
  63. 50820 nextk:return
  64. 50900 print"";tab(x);v$;"";li$:return
  65. 51000 fork=4to1step-1:print"";tab(x);v$;"";mid$(g$,k,1);li$
  66. 51010 fort=1tod:nextt
  67. 51020 nextk:return
  68. 51100 poke54296,8:poke54296,0:return
  69.